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BEGIN 
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; | 
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; 5 1 

3 : 1 

3 1 te © 
3 10 1 '® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
: 11 1 !® DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. e 
3 if : = ALL RIGHTS RESERVED. : 
.. 1 ie THIS porrnes is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
. 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
; 18 § 1 '® INCLUSION OF THe ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
3 1 1 1 '!® (COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
3 13 18 1 !® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ® 
; Y Bas : :* TRANSFERRED. 
. ‘@ we 
; 1 8 , 2 pe | A oy he IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 ; 00 § 1 !e SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
3 Z 00 Z : :* CORPORATION. “ 
3 e 

; 5 8 5 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
; : 3 $ : :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. : 
. t 

3; 28 028 1 ie “ 
3 9 9 1 SSR RARER AAAAA HAHAHAHAHA RAAEHAHEHHAETETEREAARAEReEKRAAKeAAKeRReReeeeeerese 
3 0 1 

3 1 : hs 

; y 00 } FACILITY: FIIACP Structure Level 2 

: 35 0035 | ABSTRACT: 

: i 098? : This routine performs the DELETE function. 

; 39 0059 | ENVIRONMENT : 

: 4] boes 1! STARLET operating system, including privileged system services 

3 ? Bpeg : and internal exec routines. 

+ 46 4 1 ine 

3 e? 45 : 

: rts ‘} \ AUTHOR: Andrew C. Goldstein, CREATION DATE: 11-Apr-1977 

; 49 ‘9 i MODIFIED BY: 

; 1 39 1: v03-024 CDdS0015 Christian D. Saether 14-Aug-1984 

3 § O26 : Modify handling of eutens ton fcbs. 

: 54 54 1 v03-023 cdS0014 Christian D. Saether 10-Aug-1984 

3 ‘ 56 ' : lear directory flag in header prior to actuall 

; 57 13 


deleti ng file so that extra checks against deleting 
or 


a directory can be made in delete_file. 
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CdS0013 Christian D. Saether 7-Aug-1984 
i pe ~~ directory index if there is one when 
de a; the fcb. Use common routine to delete fcb. 


eee risnis ian D. Saether 6-Aug-1984 
Sense x? fest - CDS o fix access orbitration 
on exclusively meabenea file was wrong. Fix it. 


coseer’ Christian D. Seether 31-July-1984 
Remove local declaration of get_ma ape inter Linkage. 
Fix access arbitration check to allow deletion if 

we have it accessed exclusively readonly. 


LMP0275 L. Mark Pilan 23-Jul-1984 14:19 
Don't try to delete an uninitialized ACL. 

ACG0427 Andrew C. Goldstein, = 13:32 
Write audit record for file about to be deleted 

CDS0010 Christian D. Saether 1984 
Remember to release access lock in RARKDEL “Feb if 

we get rid of the fcb there. 

CDS0009 Christian D. Saether 19-Apr-1984 
Changes to restore compatible (with V3) delete behavior. 

ACGO0415 Andrew C. Goldstein, 5-Apr-1984 21:31 
Interface change to ACL_DELETEACL 

ACG0412 Andrew C. Goldstein, 22-Mar-1984 18:21 
Implement agent access mode support; add access mode to 

check protection call 

ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:35 
Make APPLY_RVN and DEFAULT _RVN macros; remove delete logger 

CdS0008 Christian D. Saether 23-Feb-1984 


Change references to FLUSH_LOCK “BASIS to WRITE_DIRTY. 
Checksum header and mark dirty when only marking 

for delete and not ec tual ty deleting file. 

Modify call to ACL_DELETEACL. 


€D$0007 Christian D. Saether 17-Jan-1984 
Modify interface to APPLY_RVN. 

CDS0006 Christian D. Saether 27-Dec-1983 

Use BIND_COMMON macro. 

CdDS0005 Christian D. Saether 13-Dec-1983 

Move all OWN data declarations to the 

C module. 

Lois L. Mark Pilant, 8-Dec-1983 14:22 


ix a bug that caused paged pool to be lost when deleting 
an unaccessed file. 
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: Handle short ident areas in back Link file name check 
1 v03-006 cosgges Christian e. Saether 14-Sep-1983 
1 Modi "8 ERIAL_FILE inter fac 
Call ELEASE SERIAL. LOCK to "dequeue. 
v03-005 CDS0003 Christian D. Sa a A 66-May-1983 
et at FILE to Taterlock f eg ssing. 
Renove SWITEH_VOLUME and SEARCH_ Fea’ calls” in DELETE 
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ne because they are ca led“ from MARK_DELETE now. 
cal Aneel FID i e end of MARK_DELETE So that 
Le processing interiock can be feleased. This is 
necessary because of the call from CREATE using 
secondary context. 


v03-004 ACG0323 Andrew C. Goldstein, 12-Apr-1983 16:12 
Fix passing of result string buffer 


v03-003 cdS0002 Christian D. Saether 7-Apr-1983 
soe ea petrens to correctly arbitrate delete actions 
n a cluster. 


v03-002 ACG0323 Andrew C. Goldstein, 25-Mar-1983 16:29 
Erase back Link when “natching directory entry is removed 


v03-001 Lsreese L. Mark Pilant, 27-Dec-1982 8:14 
Always create an FCB for a file header. This eliminates a 
lot of special case FCB handling. 


02-006 ACG0249 Andrew C. Goldstein, | 29-Dec-1981 13:58 | 
Use DATA block type to read directory block 


v02-005 ACG0227 Andrew C. Goldstein, 24-Nov-1981 22:45 
Protect directory files from deletion 


v02-004 ACG0167 Andrew C. Goldstein Ievapr~1980 19:25 
Previous revision history moved to f11B.REV 


VE ARO OONAU EWN" OOONOu 


EEE EEE TT 


LIBRARY 


*S’ Lees or it b 48st L352" 
REQUIRE ‘SP 


FORWARD ROU 
tion 
delete 
e for delete , 
r for delete function 


e ¢ 
i 


be Re Re ty te ttt et a tne eg ee ere hy oh Ne ee 
WR CO OBNOUVEW "OOOO VIE WN —"O0@ VEN "OOOO U FW" O0DO~4OuU 


tt ts BQOODOCOOOCOCOCSOSCSCOODOOCOOOOCOODOOOOODOCOOOOOOOOOOOCO 


me ak a a a 8 a a a tt a a a es a a a a a tt 


PANNA & NNN BESS LL EE 
em a a ed ed od dd od od dd wd 8 


PWN OOOO UE WN — O OONO UE WN" O0O@ 


te fun 
le for 
ark FCB of fil 
handl 


NORM; i aomaicion 


: LLNORM main del 
: LINORM ‘wovavue, ! mark f 
: th NORM, B 

a 


ee ed ed ad ed 


WNSersustn Sse Sea FURS SS PoP ae LSS e NEO POR SLA AHN ISTE CS 


Fe 
s 


GLOBAL ROUTINE DELETE : L_NORM = 

'e¢ 

' 

' FUNCTIONAL DESCRIPTION: 

This routine performs the remove and mark for delete functions. 


: CALLING SEQUENCE: 
DELETE () 
INPUT PARAMETERS: 
NONE 
IMPLICIT INPUTS: 


IO_PACKET: 1/0 packet in process 


OUTPUT phiment Tra. 
PRIMARY _FCB: FCB of file 


IMPLICIT OUTPUTS: 
NONE 
ROUT oe VALUE : 


SIDE grhshis. 
directory entry removed 
file marked for delete or deleted 


: REF BBLOCKVECTOR C ABDSC_LENGTH], 
built fer descriptors 
: REF BBLOCK, | Fis 


th 
: VECTOR CF ILENAME LePRGTHSS. 
' File ee + oe from directory 


FIB 
RESULT_LENGTH, of meee eegtring from directory 
RESULT 
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BIND_COMMON; 
EXTERNAL ROUTINE 
GET FIB : L-NORM, et FIB of request 
F IND : LINORM; ind name in directory 


' First find the buffer descriptor, FIB, FCB, etc. then remove the 
; directory entry. 


cere ter to buffer descriptors 
= BOLD CK C.10_PACKETCIRPSL_SVAPTE], “AIBSL SESE RIPT 1); 
= GET_FIB (.ABD); 


ABD 
FIB 
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‘Ife qirectory ID is present, do a directory search first and remove 
; the directory entry. 


TF ey EANU FLAGSECLE =PIRECTORYY 
(TABD, .FIB> 1, RESULT_LENGTH, RESULT); 


i He there is a file open on eho goennet check the file ID returned Oy fhe 


ainst that of the open file. If they do not match, treat the 
7 ay nf t were not open. 


If .PRIMARY_FCB NEQ 0 
THEN 

BEGIN 

IF 4 fe 
OR .PRIMAR 
THEN CURRENT 


FCB 
Y-FCB 
Now actually mark the file for delete if requested. 


MARK_DELETE (.F 18, .BBLOCK CIO_PACKETCIRPSW_FUNC], IOSV_DELETEJ, .RESULT_LENGTH, RESULT); 
RETURN 1; 
END; ' end of routine DELETE 
TITLE ETE 
IDENT + 4-000\ 
-EXTRN GET_FIB, FIND 
.PSECT $CODES,NOWRT,2 
ENTRY DELET ETE. Save R2,R3 
AG OE MOVAB as S 
b 90 AA MOVL = “Hfetanse), RO 
2c 9 
ABD 
CALLS ss GE _F1B 
MO 
MOVL = lt. 
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PUSHAB 
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PUSHAB RESULT LENGTH 


RCIDELETE .832; ~~ 


; 
(2) 


<2 
> 


1beseont9ge P9:48i18 —OEScbuwGnaStenschtixesneapevere.e32:0°%° (2 


e DD PUSHL FJ 
00006 gf p CALL A FIND : 
0 08 AA OVL (Bas », RO ; 1228 
06 =A2 24 AQ a chPY (RO), 4(FIB) : 1231) 
06 A2 26 Ad CMPW (RO), 6(F IB) 1232. 
0 BEQL SG : 
C AA p4 CLRL —«- 12 (BASE) ; 1233 
AE OF PUSHAB RESULT + 1239 
9 6 AA BD MOVE TiStBRSED RO 
7E 21 ad 3 9 ef exIZy #0, #1, BStras. -(SP) 
0000v cf 4 FB CALLS #4, MARK_DELETE : 
0 1 20 MOVL #1. RO : 1241 
RET 3 1243 


; Routine Size: 111 bytes, Routine Base: S$CODES + 0000 
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GLOBAL ROUTINE MARK_DELETE (F1B, DO_DELETE, RESULT_LENGTH, RESULT) : L_NORM NOVALUE = 


tee 
' 


i FUNCTIONAL DESCRIPTION: 


[o's net tos marks the indicated file for delete and deletes it 
if it is not accessed. 


Sm 


i CALLING SEQUENCE : 
MARK_DELETE (ARG1, ARG2, ARG3, ARG4) 


! INPUT PARAMETERS: 
ARG]: address of FIB 
ARG2: te ecpustty deiete the file 
ly remove the directory entry 
ARG3: lenaee of name string from directory operation 
ARGS: address of name string 


' 

' 

' 

' 

' 

' 

' 

' 

' 

‘ 

' 

' 

' 

! 

' 

i IMPLICIT INPUTS: 
NONE 

' 

i QUTPUT PARAMETERS: 
NONE 

' 
' 
' 
' 
! 
' 
' 
1 
' 
' 
' 


i IMPLICIT OUTPUTS: 
NONE 


i SIDE EFFECTS: 
: file marked for delete or deleted 


BEGIN 
BUILTIN 
FP 


MAP 
FIB : REF BBLOCK; ! FIB 


i ROUTINE VALUE: 
NONE 
| 
GLOBAL REGISTER 

COUNT 4 pointer count 


aa pointer LBN 
nter to "te header map area 


“nu 
a 
ees 8 


LBN 
MAP_POINTER = 8; 


LOCAL 
CURR_LKMODE , ' mode access lock currently held at. 
EOF ' end of file VBN of file 
BUFFER VECTOR Ties butter adérees of block reed 


Peers ' head nee der area 
OcK CFIOSC_LENGTH ; temp copy of file ID 
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REF 
: REF BBLO 1 FCB 0 
HEADER : REF BBLOCK. if 
IDENT AREA : REF 
TEMP_FID : BBL 
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Sewn 
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FCB oy 


NEW" HEADER : REF BBLOCK, 
ARGCIST : REF BBLOCK; 


BIND_ COMMON; 
EXTERNAL ROUTINE 


SWITCH_VOLUME (.FIBCFIBSW_FID_RVN)); 
Serialize further processing on this file. 


REBLD_PRIM_FCB 
BUILD petty’ ces 


WOKE nea pes FCB 


ORITE. DIRTY : LTNORM, 


SERIAC_FILE : LONORM, 
RELEASE” SERIAL -LOCK : L_NORM NOVALUE 
SWITCH_JOLUME ~ : L_NORA, 

ARCH_FCB “NORM, 

REATE FCB : LINORM, 
READ HEADER : LINORM, 
CHECR_PROTECT =: L_NORM, 
wk UDIT : ORM 


: LON 
GET_MAP POINTER :L “MAP POINTER, 


L L- 
INVACIDATE : LINORM, 

IRTY : L-NORM, 
DELETE FILE : LINORM, 
CHECKSOM : LINORM; 


! Find the FCB, if any, and then 
i under a condition handler that 
! encountered. Thus, deleting a b 


L.NORM NOVALUE, 

L=NORM NOVALUE, 

KILL_DIN : LONORM NOVALUE, 
KILL BUFFERS : LONORM NOVALUE , 
: : te =NORM NOVALUE , 


EXTEC NORM, 
ART RATE Baccess': C_JSB_2ARGS 
CONV_ACCLOCK : L_RORM? 
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lag indicating new FCB created 
ddress of extension header 
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1 
1 | 
! 
' inter to audit block ontries | 
| 
| 


1 ¢ 
A 
p 


: ropyite primary feb tree header 
i id evens ton We8 hain 

i delete di eye tere ndex 

i Ll directory uffers 

i leanup and delete prin feb 

! delete extension F 

' doternine allowed file access 

! convert file occess lock. 

! write back modified buffers. 

' { \terlock file processing 


' search FCB 

i create an FCB 

i read file header 

check file protection 
write audit record 

7 get “tile hoster map pointer 
read a disk block 

Snual iéate block buffer 
mark buffer for write-back 
delete the file 

checksum file header 


| 
| 
| 
| 
: suiteh sentest te desired volume | 


| 
| 
e header. Reading the header is done 
exits with success if errors are 
header succeeds quietly. | 
| 
} 
| 


PRIM_LCKINDX = SERIAL_FILE (FIB CFIBSW_FID)); 


FCB = SEARCH FCB ce rete issu F1D)); 


sey E =STAT US = laste 


If this is a real delete, proceed with it. 


IF 


= *DELET EH 


DLER; 
WEAD pen ® READ NAEADER (FIBCFIB$W_FIDJ, .FCB); 


zPO_DELETE 
BEGIN 
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1b-se B00n Fhe PS ta G || Naedbnthas tence igs cneoperere.es2:0°* 3 
' Check that the file is not 3 reserved file (FID less than 

- CURRENT_VCBCVCB$B_RESFILESJ). 


ce FeCe Ie $w 
FIBCFI it 
THEN’ ERR Exit 


FID_NUM] LEQU ,CURRENT_VCBCVCBSB_RESFILES) 
FID. Ea. 6 

TSSS$_NOPRIV); 

! At this point, build 


FCB_ pee Aree = 0; 
{eat 8 L 0 


the necessary FCB chain to allow the ACL to be built. 


COCDCO Oo ~—~ 
Wr—O0O@ 


BEGIN 
FCB_CREATED = 1; 
eco = KERNEL_CALL (CREATE FCB, HEADER); 


extension FCB's. Finally, read back the primary header. 


WLS SBGEAk 


IF .FCB_CREATED 
TH 


BUILD_EXT_FCBS (.HEADER) 
ELS 
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| 
IF yee CF CBSV_STALE] 
BEGIN 
| 


OCC 0D0D 


REBLD_PRIM_FCB (.FCB, .HEADER); 
BUILD_EXT_FCBS (.HEADER); 
END; 


! Check file protection. Check if the file is write accessed by someone 
' else and not the deleter. 


oo 
ONAOW 


CHECK_PROTECT (DELETE ACCESS. HEADER 
MAXU (7IO_PACKETCIRPS$SV "MODE: -F IBCF IB$B_AGENT_MODE))); 
irector 


If the tte is identified as ad ory, check to see if it is empty. 
pennenety ¢ irectories cannot be deleted under ony circumstances. 

The check for snot iness is done by (1) phect ing ) 

1 block, and (2) reading the bloc 

an empty directory block. 


ee eo ee 
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r a length o 
and looking for the data pattern of 


4 

4 

4 

PRIMARY: “FCB = FCB; ! Record FCB for external use 
! If the file is aul Tender. read in the extension headers and create 
4 

4 

4 

4 

4 

4 

IF .HEADERCFH2$V_DIRECTORY) 

THEN 

4 

4 

4 
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Be Ge Be Be Be Be Se Be Se Se Se Se SH Se Be Be Se Ge Se Se Ge Se Ge Se Ge Se Ge Se Se Se Se Ge Se Se Se Se Se BH Se BH Se Se Se Se Se Se Se ee SHS Se ee SESH Geese 
o 
oo 

ee a ee ee em ee em ed ed ed dd od 8 


Ft et ak et et ek ak ae a ee te 
eee eesesssoSeoe 
uw 


CUE WN —OOOwoufwn—o 


ae ee Ne en ee ee 


BEGIN 
. = ROT (, | Ree CHEADERCFH2$W_RECATTR], FATSL_EFBLKI, 16) 
H 


EOF 
AND .BBLOCK CHEADERCFH2$W_RECATTRI, FATSW_FFBYTE) EQL 0 


n 8 
DELET 16-Sep-1984 00:15:14  VAX-11 Bliss-32 v4.0-742 p 0 
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| 
: 427 1415 4 THEN EOF = .EOF = 1; 
3 6 $ 1618 4 IF .€OF LEQU 1 
: 6 1417 4 THEN | 
: 450 1313 BEGIN 
; 4351 141 MAP_POINTER = .HEADER + .HEADERCFH2SB_MPOFFSET] * 2; | 
; 4 ¢ 1420 GET _ MAP_POINTER (); 
; 4 1421 BUFFER = READ BL OCE BN, 1 , DATA_TYPE); 
; 4 14 § IF .BUFFERLO] NEQ 65 
; 435 14 THEN ERR_EXIT (SS$_DIRNOTEMPTY); 
3 ? 1° : INVALIDATE (.BUFFER); 
: 4 8 1426 4 ELSE ERR_EXIT (SS$_DIRNOTEMPTY); 
> 4 1427 4 
cn op | 
: 4G 1430 ' Check if a yoeur sty audit record is to be written for this file. 
; rer 1? If so, now is the last time to do it. ("Morituri te salutamus!'’) 
: 445 143 
3; 446 1434 ARGLIST = AUDIT_ARGLIST; 
; 447 1435 DECR J FROM MAXZAUDIT_COUNT TO 1 
: 449 1239 4 BEGIN 
; 450 1438 4 IF .ARGLISTCAUDIT_TYPE] NEQ 0 
3; «6451 1439 4 AND .BBLOCK CARGLTST Au tT FD}. FIDSW_NUM] EQL .FCBCFCBSW_FID_NUM) 
3 $26 1440 4 AND .BBLOCK CARGLISTLAUDIT_FIDJ, FIDSW_SEQ) EQL .FCBLFCBSW_FID_ SEQ] 
; $27 1204 ? + aaa ARGLISTCAUDIT_FIDJ, FIDSW_RVN) EQL .FCBCFCBSW_FID_RVNJ 
: 455 1268 . BEGIN 
; 456 1444 : WRITE_AUDIT (.ARGLIST); 
; 457 1445 HEADER = FILE_HEADER; 
ee ow & 
: 460 1448 4 ARGLIST’= .ARGLIST + AUDIT_LENGTH; 
: ree 1088 END; 
: 46 1451 ! Remember current lock mode to be restored later, if necessary. 
: oes 103g 3 
; 466 1454 CURR_LKMODE = .FCB CFCBSB_ACCLKMODE); 
: 468 1436 ' Make access checks. 
3; 469 145 ' If we have the file accessed, we may delete it as long as we have 
; 470 1038 i write access ourselves (whether there are other writers or not). 
3; 471 145 ! In all other cases, no other writers are allowed. 
i Hey 
3 
3 6474 1696 IF .CURRENT_WINDOW NEQ 0 
toh ca, 2 Meccan 
: 47 1465 4 IF NOT .CURRENT WINDOW CWCBSV_WRITE) 
; $78 1608 ? AND NOT .FCB CFCBS$V_EXCL 
; 480 1468 4 IF NOT ARBITRATE_ACCESS (FIBSM_NOWRITE, .FCB) | 
: 48 129 5 ERR_EXIT (SS$_ACCONFLICT) 
; 48 1471 4 END 
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4 ELSE 

? 5 IF NOT ARBITRATE_ACCESS (FIBSM_NOWRITE, .FCB) 

2 , ERR_EXIT (SSS$_ACCONFLICT); 

rt CLEANUP_FLAGSCCLF_REENTER] = 0; ! from now on deletion proceeds 
491 

49 ! Mark the file for delete. If the file is not accessed, then proceed to 
49 ' actually delete it. 

494 ! In addition, if this is a directory file, clear the directory flag in 
495 ' the header and clean out cached directory data blocks now. 

4% ! Clearing the directory flag in the header allows us to be defensive 
rd against accidental directory deletion in delete_file. 

499 

300 HEADERCFH2$V_MARKDEL) = 1; 


wn 


Jf TESTBITSC (HEADER CFH2SV_DIRECTORYI) 
KILL_BUFFERS (1, .FCB CFCBSL_LOCKBAS!S)); 
IF MARKDEL_FCB (.FCB) 
gpDELETEMFILE (.FIB, .HEADER) 


aE 


MARK_DIRTY (. HEADER); 
END; 


a oooooooo 


e access lock conversion routine is called to: 
restore the previous lock mode 
Poeveus the access lock entirely if the refcnt is zero. 


SCOOOCOSSCOC COO OOO 0S ODMWBWWDODWOWOWOON NNN 


tot ~~  e = 
SV Cer ODO NAME WIM O OS VE MF UN Oe VO AR aro Oo Ole aA OOOO OUND 


: f the lock was granted exclusive, either restore or dequeue the 
lock and store the value block. 


CONV_ACCLOCK (.CURR_LKMODE, .FCB); 
IF .FCB CFCBSW_REFCNT) EQL 0 
THEN 


BEGIN 
4 -FCB CFCBSL_DIRINDX) NEQ 0 
KILL_DINDX (.FCB); 


DEL_EXTFCB (.FCB); 
NUKE _HEAD_F CB (Fee); 
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IF .PRIMARY_FC 
IF :DIR_FCB™EQ 
' 


END 
! Otherwise we are just rezoving a directory entry. If the file name 


B EQL .FCB THEN PRIMARY_FCB = 0; 
L .FCB THEN DIR_FCB = 0; 


of we really do want to delete the file. 


E 

4 BEGIN 

? CHECKSUM (. HEADER); 
& 

4 

4 

% 

4 

4 
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DV LULU DUD PUL DPUDPVLV LULU LDVUDUDVLIUDV PUPIL VSUSIT STII SITS STITT 
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~EXTRN aver? PRIM_FCB, spur EXT_FCBS 


eEXTRN KILL _BINDX? KILL 


7 SEARCA i 
TE” he READ HEAD 
PROT TECT, WRITE_AUDIT 


OIN | 
BLOCK, INVALIDATE 
moe DELETE_FILE 


E 
T 
DI 
SE 
E 


LET is 2 2 
vOL=000 14-Sep-1984 zt 98: 3:18 DISKSVMSMASTERSCF1IX.SRCIDELETE.832; 1° v | 
3 <3 } H Pi soe Link in the header match the directory, erase the back | : 
; té ' | ; 
; 45 ELSE os | ; 
; 56 1535 CHSMOVE (FIDSC_LENGTH, HEADER ry su -BACKLINK], PREV LINK); | : 
; 56 1 CHSMOVE (FIDSCELENGTH. HEADE Nou BACKLINK], TEMP-FID); : 
a es tr Ratt er P| 
2 = . o . 
: 389 1839 IDENT AME (£1288, "FILENAME, TDEN 2ST FILENAMES, ; 
; § 1 re » FILENAME ' MOTHS gapeey INARE) ; : 
: 154 IF HEADER FH2s6 $B MPOFFS Fue$B_ bor FSET) : 
: 228 4g YTEOFFSET (FI2$T ‘Fitton +"F12$S_FILENAMEXT) / 2 : 
; 6 1544 NCHSMOVE (F128S ~FILENAMEXT, IDENT AREA F1I2$T_FILENAMEXT), : 
; 1545 Va NARE CFI2$S_FILENAME)); : 
3 §5 1546 IF CHSEQL (FIDSC LENGTH rit WD1D2, FIBSC_LENGTH, TEMP_FID) ; 
3 35 154 AND CHSEQL cnesaT ENGTH, .RESUL : 
; rs : re — FILENAME SF is s OFICENAMEXT, PREV_INAME, * ') ; 
: 56 1550 & BEGIN | ; 
; 56 1551 4 HEADERCFH2$W_BK_FIDNUM] = 0; | : 
; 564 1 3g 4 HEADER[FHeSW_BK_FIDSEQ) = 0; | ; 
; 565 1553 4 HEADERLFHCSW BK FIDRVNI = 0; | : 
: 366 1334 4 CLEANUP_FLAGSCCCF _FIXLINK] = 1; | : 
3; 1555 4 CHECKSUM (HEADER; : 
; 568 1396 4 MARK_DIRTY (.HEADER); ; 
; 569 155 END; ~ | : 
: 3h 1839 oe ; 
; i 1360 WRITE_DIRTY (.LB_BASIS C.PRIM_LCKINDX]); : 
; rs 136¢ ¢ RELEASE SERIAL_LOCK (.PRIM_LCKINDX) ; ; 
; 37 1564 2 PRIM_LCKINDX = 0; : 
; 578 1866 1 END; ! end of routine MARK_DELETE ; 
3 
| 
| ; 


Y Bene DELETE. Save R2,R3,R4,R5,R6,R7,RB,RI : 1244 | 
’ . 


| 
| 
| 
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15- -1984 00:15:14 VAX-11 Bliss-32 V4.0-742 Page 13. 
ye-35b=198e 3:43:18 = OTesvmGmaStenschtixssnesoevere.o32:1°° jy 
? O1A8 CA 9 5 MOVAB 424 (BASE), R7 ; 1303, : 
$6 4 Ag 4 A pov FIB, R ; 1338) ; 
E 8 Ad 3C MOV2wL 8(RO), =(SP) : | : 
00006 CF 1 Fe 1 CALLS #1, SWITCH VOLUME : : 
7E 38 AC 4 ¢ 1 ADDLS #4, FIB, TSP) + 1343) : 
00 06 CF 1 FB I¢ CALLS #1, SERIAL FILE : : 
1 Ae 0 0 MOVL. RO, 24(BASE) : | : 
7E 94 AC 4 C1 5 ADDL3 #4, FIB, (SP) : 1345, ; 
—s et rea Folie 
CO. AA go AA ¢ MOVL  =-128(BASE), -64(BASE) : 1346 | : 
| 6D oodov fF 9E 000 MOV DELETE_HANOLER, (FP) : 1347, : 
3 Dod C PUSH CB + 1348 : 
7E 04 AC 4 C1 000 ADDLS #4, FIB, -<SP) : : 
00006 cf é FB 0043 CALLS #2, READ_HEADER : : 
9 D 04 VL HEADE 3 ‘ 
6D D4 00048 CLRL p) : 1349 ; 
03 08 orf & 9040 BLBS DO DELETE, 1$ + 1354 
et a ee esl | 
: 4F OO A1O9A 005¢ MOVZBL 79(R1), R2- : : 
ah 88 Fr oboe ys A 
09 A %3 9066 ist $tro» ; 1363 : 
24 BF 00068 CHAU #56 ; 1364 | : 
5 D4 900 2$: CLRL =F CB_CREATED : 1368 : 
DS 000 p TSTL «FCB : 1369 : 
D 1 0007 BNEG = 3$ F : 
52 1 0 00074 MOVL #1, FCB_CREATED + 137 ; 
9 DD 00077 PUSHL 4H : 137 ; 
oon Q GR aia? RAS Ah arent 2 3 
08 AA 33 DO 90081 3$: MOVL CB, 8(BASE) + 1375 : 
0D £8 00085 BLBS FCB CREATED, 4$ : 1381 ; 
10 3 2g 33 00 BLBC oe ere ), 5$ > 1385 3 
0268 F 6B o08C PUSHR #*M<R3,R9> ; 1389 ; 
00006 CF 02 FB 00090 CALLS #2, REBLD_PRIM_FCB : ; 
00006 CF 01 33 $69? ™ CALLS i BUILD_EXT_FCBS eee F 
5 90 AA D0 443 5$ MOVL  -112(BASEJ, RT > 1400 | : 
Al 0 cf AG EXTZ2v #0, #2, 11(R1), -(SP) F : 
6E 2E AO 91 QOOAA CMPB = 46 (RO), (SP : | : 
6E 2e ti M1 Sas BOY ZBL 46(RO), (SP) : | ; 
DD 00084 6$: PUSHL . : 1399 : 
ae: worn pester 
. : 
4 A CALLS #4, CHECK_PROTECT : ; 
00996 Ag ft tt BBC 5 : (HEADER), 9$ > 1409 3 
f fa \) 16 ; C4 ROTL id, 8(HEADERS, EOF : aie : 
20 Ad CB TSTW 3 (HEADER) > 1414 : 
02 CE BNEQ : ; 
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: 15: “11 BLiss-32_v6.0-742 Page 15. 
1$-Se0-1984 $b 486 STEKSVMEMASTER-EY Tig, She JDELETE 83251 ait 


Sa 


; 1499, ; 
168: PUSHL HEADER | 
00006 CF i 3 CALL i CHECKSUM S 1500) 
PB rh ts #i, MARK_DIRTY : | : 
ernie t be 178: busta #°R<R2,R3> ; 1510, : 
#2, CONV_ACCLOCK ; | ; 
—_* 18 a , 4 7 7 Ste tey ; 1512) 
1 ; A BNEQ 98 pat I sees 
0080 ; TSTL oo g¢ cB ; 
a a: ‘is| | 
rs Dork 188: sighs 7 + 1519 
00006 CF } FB 183 "CALLS ‘ DEL_EXTFCB tome 
j Pe 01BA cAcs #i, NUKE_HEAD_FCB ~~ 
phe gf 08 AA Of DO1BF 19% CMPL (BASE), "FCB ; 
RMB BMS fleas GS 
53 00nd ch DI C8 208: CPL 8(BASE), FCB ; 
ne h of o§ NF epg £1354 
1$: MOVC3 #6, 66(HEADER), 48(BASE) i: 1335 
=. 2 3 ON + #6, 66(HEADER), TEMP_FID : 
Jet ed fe ee a 1B 
05 1 E N : ; 
MOVB -96(BASE), TEMP_FID+ 
” Of be AE 3 EA 228:  CMPB  TEMP_FID+4, #1 ; | 
08 1 E BNEQ ee ; 
mo MK oS Ae ay a : 
0 e ; 
04 AE 94 OOTF CLRB—s TEMP_F ID — 
4 65 t Olt ROVAGE tee fl IDENT_AREA A onus 
$6 om) OE Sotee MOVCS #20, C(IDENT_AREA), #32, #86, (R7) : 15 
0056 «BF 20 66 14 C OO1FF . é fox 
VZBL 1(HEADER), R : 
° ” 4 3 ROvzeL (HEADER) , R1 ; 
0 1 ¢ SUBL2. R1, R Fiske 
C 0 ¢ 1 CMPL RO #60 ; sated 
14 «A? 3% OA 0042 BF of 16 novcs 66, 54 (IDENT AREA). 20(R7) ; 1368 | 
6E OA 53 ats 0s 23 23 _— CMPCS #6, 10(RO), TEMP_FID ; | 
oc A 6 9 eRe CS RESULT_LENGTH, @RESULT, #32, #86, (R7) 1547 | 
0056 «BF 20 10 BC : : 
iz at i (HEADER) 1351 
4 CLRW SCHEADERD : 1338 
B3 BISB2 #64, 3(BASE) 1338 | 
DD 0024 PUSHL HEA ies ; | 
BB 0054 SUSHiL 4 her : 1556. 
44 ¢ atk: #1, MARK_DIRTY F case! 
D 4 24(BASE)> RO 


Maan : se0-1944 PO1G | SicbuwBhaStence¥ tik ceeaevere.0320°%° B 


a C SH, 178(BASE) CROJ : 
00006 CF 8 Ty : 
: 7 ca 4 {BASED I ; 1562. 
00006 CF CALLS. 1, RELEASE =SERIAL_LOCK : | 
CLAL «©. 24 (BASE) ; 1564 
RET i 1566. 


; Routine Size: 616 bytes, Routine Base: SCODES + 
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GLOBAL ROUTINE MARKDEL_FCB (FCB) : L_NORM = 
‘oe 
FUNCTIONAL DESCRIPTION: 
This routine marks the FCB for the cyrreng file, if any, for delete. 
In a cluster, it will either mark other FCBs as stale, set the 
MARKDEL flag in the access lock value block, or both. 
This routine must be executed in kernel mode. 


CALLING SEQUENCE: 
MARKDEL_FCB (ARG1) 


INPUT PARAMETERS: 
ARG1: address of FCB 


IMPLICIT INPUTS: 
NONE 
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| 
OUTPUT PARAMETERS: 
NONE | 
IMPLICIT OUTPUTS: | 

NONE 


ROUTINE VALUE: 
1 if file may be deleted. 
s 
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! If the FCB exists, we mark it for delete (causing the file to be deleted 
! when the reference count goes to 0). If the 
reference count is zero, dump the FCB and its extensions. 


MF wn— 


IF .FCB NEQ 0 
THEN 
BEGIN 


ee ee ee ee ee ed ed on 8 od od 


3 Ps 
r ; 
; : 
. : 
$ o 
: Ps 
: ; 
4 o 
8 ; 
3 Ps 
3 ; 
3 Ps 
r Ps 
3 : 
3 : 
3 ; 
3 ; 
3 Ps 
3 Ps 
: : 
3 ; 
: Ps 
3 Ps 
3 Ps 
3 : 
3 Ps 
: : 
: : 
; : 
; : 
. - 
: , 
‘ ; 
. r 
. : 
: : 
. 7 
. : 
‘ ; 
PY * 
3 Py 
3 Py 
$ Ps 
3 Ps 
3 Pi 
3 Py 
: : 
3 : 
s Py 
3 Ps 
3 : 
3 : 
: Py 
3 Py 
3 : 
3 Ps 
: Py 


if delete to be deferred 
tts delete is to be deferred and file is accessed on another node 
611 98 SIDE EFFECTS: 
oi¢ 99 Whether file acy be deleted or not, there may be a zero-refcount 
a ret FCB remaining which must be cleaned up by the caller. 
615 one 
oig 6 
61 
ol8 605 
61 606 MAP 
: re FCB : REF BSLOCK; ! FCB arg 
? § 0 BIND_ COMMON; 
624 EXTERNAL ROUTINE 
625 LOCK COUNT : LNORM, ! get count of access locks 
$ $ QEX_R_CANCEL : L-NORM; ! set fcb$v_stale flag in other fcbs. 
628 
6 
6 
6 
6 
6 
6 
6 
6 
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OOo 
SSeS 


} 
FCBCFCBSV_MARKDEL) = 1; 
JF LOCK COUNT (.FCB CFCBSL_ACCLKID]) NEQ 1 | 


BEGIN 

IF QEX_N_CANCEL (.FCB CFCBSL_ACCLKID)) 

Normally the lock will not actually be granted from the qex_n_cancel call. 
If it is granted though (success), then set the lockmode field in the 

fcb so that the subsequent conv_acclock handles the value block correctly. 


THEN 
FCB CFCBSB_ACCLKMODE] = LCKSK_EXMODE; 


RETURN 2 
END; 
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IF -FCBLFCBSU_REFCNT] NEO 0 : 
RETURN 0; ! file still accessed here : 
END; ; 
RETURN 1; ! ok to delete file : 
END; ! end of routine MARKDEL_FCB : 
.EXTRN LOCK_COUNT, QEX_N_CANCEL | ; 

0000 00000 .ENTRY MARKDEL_FCB, Save nothing ; 1567 : 

50 06 AC D 90002 MOVL FCB, RO : 1621 : 

39 13 00006 BEQL ; : 

22 a0 02 88 00008 BISB2 #2, 34(RO) i 1625 : 

50 04 AC DO 00006 MOVL FCB > 1627 : 

48 Ad DD 0001 PUSHL 72(RO) ; ; 

00006 CF gi FB 001 CALLS #1, LOCK_COUNT ; : 

01 0 01 0001 CMPL) ORO, #1 ; : 

18 13 0 1B BEQL «= 2$ ; : 

50 06 AC D 1D MOVL FCB, RO : 1630 : 

48 AO dD 90021 PUSHL 79Xho) ; : 

00006 CF or FB 4 CALLS #1, QEX_N CANCEL ; : 

0 € BLEC = «RO, 1 : ; 

oo ACD ¢ MOVL ce, RO ; 1638 : 

0B Ad MOVE = #5, 11(K0) ; : 

50 2 Bo 4 18: MOVL #2, RO : 1640 : 

50 04 AC D 28: MOV. FCB, RO ; 1643 : 

18 OA 2 C TSTW =. 24( RO) ; : 

4 F BNEQ = 4$ ; : 

50 1p 41 38: MOVL #1, RO > 1649 : 

4 00044 RET : 3 

50 D4 00045 48: CLRL =. RO : 1651 : 

4 4 RET . e 


vOL=60 


; Routine Size: 72 bytes, 


Routine Base: S$CODE$S + 0207 
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ROUTINE DELETE HANDLER (SIGNAL, MECHANISM) : L_NORM = 
i 
FUNCTIONAL DESCRIPTION: 
This routine is the condition handler for rooding the file header. 


If any errors occurr, it unwinds and returns to 
causing the delete of a bad file header to be a quiet NOP. 


CALLING SEQUENCE: 
HANDLER (ARG1, ARG2) 

INPUT PARAMETERS: 
ARG1: address of signal array 
ARG2: address of mechanism array 


i 

i 

i IMPLICIT INPUTS: 
NONE 

i QUTPUT PARAMETERS: 
; NONE 

i IMPLICIT OUTPUTS: 
NONE 

i 


ROUTINE VALUE: 
SS$_RESIGNAL or none if unwind 


SIDE EFFECTS: 
NONE 


BEGIN 

SIGNAL : REF BBLOCK, ' signal arg array 

MECHANISM : REF BBLOCK; ! mechanism arg array 
BIND_COMMON; 

! If the condition is change mode to user (error exit) cause an unwind to 


! return to DELETE's caller. 
Otherwise, just resignal the condition. 


1F _,SIGNALCCHS 2L_$16_NAME] EQL SS$_CMODUSER 
BEGIN 

USER STATUS = .°AVE_STATUS; 

UNWIND ( 


RETURN SS$_RESIGNAL; ! status is irrelevant if unwinding 


P 
JDELETE .832;1 


RK_DELETE's caller, 


-$255$DUA28 : CSYSLIBILIB.L32;1 


x 
1 


COMMAND QUALIFIERS 


bs 
Sep 98% 99: ¥3:1 VAX-11 Bliss-32 V4.0-74 
14-$ Sep- DISKSVMSMASTER:CF11X.SR 
! end of routine DELETE_HANDLER 
eEXTRN SYSSUNWIND 
0000 00000 DELETE_HANDLER: 
50 0% AC po 90002 hove, SIGNALS RO”? 
00000424 =F 046 =A  So006 CMPL 4(RO), #1060 
OE 3 Bey BNEQ 1$ 
80 AA CO AA 01 MOVL syeseAet? -128 (BASE) 
43 C 0001 CLROQ (SP 
000000006 98 FB 0001 CALL a “ig genmee 
0 0918 + 8F 3¢ 0018 1$ MOVZWL #252 
4 0002 RET 
Routine Base: SCODES + O31F 
PSECT SUMMARY 
Bytes Attributes 
835 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
Library Statistics 
ecoceccce Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
18619 74 0 1000 00:01.9 


BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:DELETE/OBJ=OBJS:DELETE MSRC$:DELETE/UPDATE=(ENHS$: DELETE) 
835 code + 0 data bytes 


+4 


Se Se Se Ge Se Se Se Se Se 


9 
vad ay 16-Sep-1984 00:15:14 VAX-11 Bliss-32 V4.0-742 Page 22 


| 3tnesed Hane ‘28-8 
? Lines/CPU Min: 63 . 
; Lexemes/CPU-Min: 5 

: d 33¢ pages 


ry Used: 
Compilation Complete 


L EQUIPMENT CORPORATION 
ENTIAL AND PROPRIETARY 
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